Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.

+ 0 -

Arturki

04 июня 2014 г., 21:37:22 (9 лет назад)

const
size = 25;
var
a:array[1..size] of integer;
i, count:integer;
begin
randomize;
count := 0;
for i := 1 to size do
begin
a[i] := random(26) + 25;
write(a[i], ' ');
if a[i] = 36 then
count := count + 1;
end;

writeln;
writeln('Count = ',count);
readln;
end.

//вторая программа

const
size = 35;
var
a:array[1..size] of integer;
i:integer;
begin
randomize;
writeln('Исходный массив :');
for i := 1 to size do
begin
a[i] := random(36) + 20;
writeln('a[', i ,'] = ',a[i]);
end;

writeln;
writeln('Индексы элементов > 41 :');
for i := 1 to size do
if a[i] > 41 then
write(i, ' ');
readln;
end.