Помогите решить задачу на массивы - Форум
Среда, 07.12.2016, 11:35
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачу на массивы
Помогите решить задачу на массивы
southpark16Дата: Понедельник, 16.03.2009, 20:26 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
В целочисленной последовательности есть нулевые элементы.Создать массив из номеров этих элементов.

Добавлено (16.03.2009, 20:26)
---------------------------------------------
задача на паскале

Добавлено (16.03.2009, 20:26)
---------------------------------------------
задача на паскале

 
YurraДата: Понедельник, 16.03.2009, 21:14 | Сообщение # 2
Генерал-лейтенант
Группа: Участник
Сообщений: 69
[ 10 ]
Статус: Offline
Code

uses crt;
const n=20; {максимальное количество элементов последовательности}
var a,b:array[1..n]of integer;
     c,kol,k:integer;
begin
  write('Введи количество элементов последовательности ');
  readln(kol);
  {создаем массив последовательности}
  writeln('Введите элементы последовательности');
  for c:=1 to kol do readln(a[c]); {элементы последовательности вводятся через "Enter"}
   
  {создаем массив "в"}
  k:=0;
  for c:=1 to kol do
   if a[c]=0 then
    begin
     k:=k+1;
     b[k]:=c;
    end;
    
   {выводим массив "в" на экран}
    for c:=1 to k do write(b[c],' ');
   readln;
   end.


Коплю на новую машину, помогите кто чем может
 
mmmmmmДата: Пятница, 19.11.2010, 17:01 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
вводится массив 6 на 6. В строках с отрицательным элементом, лежащим на главной диагонали, найти сумму всех элементов
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачу на массивы
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016