Найти элементы массива с нулевыми значениями

30.11.2011, 19:14. **Показов** 3916. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Составить программу, которая формирует массив из 16 случайных целых чисел от-20 до 20 и

а) находит элементы с нулевыми значениями;
б) находит в этом массиве индексы элементов, значении которых кратны трем.

@КонецСвета · 30.11.2011, 20:53

Pascal

uses crt;
var a: array [1..16] of integer;
    i,kn,kk: integer;
begin
writeln('Дан массив');
for i:=1 to 16 do
    begin
    a[i]:=random(41)-20;
    write(a[i]:4);
    if a[i]=0 then inc(kn);
    end;
writeln;
if kn=0 then writeln('Нулевых значений элементов нет')
   else writeln('Количество нулевых значений ',kn);
writeln('Индексы кратных 3 ');
for i:=1 to 16 do
   if a[i] mod 3=0 then write(i:4);
end.

@Gheka_017 · 30.11.2011, 21:16

Спасибо !!!!!

SVD14
		1
	Найти элементы массива с нулевыми значениями 30.11.2011, 19:14. Показов 3916. Ответов 2 Метки нет (Все метки) Составить программу, которая формирует массив из 16 случайных целых чисел от-20 до 20 и а) находит элементы с нулевыми значениями; б) находит в этом массиве индексы элементов, значении которых кратны трем.

@Gheka_017 0 / 0 / 0 Регистрация: 26.10.2011 Сообщений: 9
	30.11.2011, 21:16	3
	Спасибо !!!!! 0

Найти элементы массива с нулевыми значениями

Решение