ответ: Программа рабочая, проверена.
Program zadacha;
var
a: array [1..50] of integer; // размерность массива = 50
i,k: integer;
begin
begin
for i:=1 to 50 do
a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве
writeln('Заполненный массив: ');
for i:=1 to 50 do
write(a[i],' '); end; // выводим массив на экран до проверки
writeln; //новая строка
writeln('Введите значение числа K: '); readln(k);
writeln('Элементы массива, кратные K:');
for i:=1 to 50 do
if (a[i] mod k = 0) then write(a[i],' ');
end.
Объяснение:
i - порядковый номер элемента
a - сам массив
k - вводимое число
В остальном оставила комментарии.
Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было вопроса о вводе элементов или вводе размерности.
//з № 1var s,d,f,max:integer;beginRead(s,d,f);if (s > d)and (s > f) thenmax:= selse if (d > s) and (d > f) thenmax:= delse if (f > d) and(f > s) then max:=f;write('max ',max);end.
//з № 2 var x:real; r:integer;beginwrite('Введите число x =');Read(x);if Frac(x)=0 then beginwriteln('x - целое число!');r:=round(x);if ((r mod 2)=0) then writeln('Число четное')else writeln('Число нечетное');endelse writeln('x - дробное число!')end.
//з № 3var a:integer;beginwrite('Введите число а =');Read(a);if (a > 0)and (a <= 5) thena:= a *a*aelse if (a > 5) thena:= a*aelsea:=a;write('a = ',a);end.
Объяснение:
var
n : integer; // длина мвссива
a : integer; // количество замен
begin
write('введите длину массива ');
readln(n);
var d : array of integer := new integer[n]; // создаем массив длиной n
d := ArrRandom(n, 6, 100); // заполняем массив случайными числами от 6 до 100
writeln('был сгенерирован массив ', d);
for var i := 0 to n-1 do begin
if (d[i] mod 3 = 0) and (d[i] mod 6 <> 0) then begin // проверяем содержимое ячейки массимассива на условие задачи
d[i] := 1; // заменяем значение ячейки на 1
a += 1; // увеличиваем счетчик количества замен на 1
end;
end;
writeln('массив после замены ', d);
writeln('было произведено замен ', a);
end.
итак...
генерируем массив указанной длины n
заполняем его случайными числами в диапозоне 6..100
так как паскаль нумерует ячейки массива начиная с 0 то задаем цикл от 0 до n-1
проверяем значение ячеек на соответствие условию
для этого делим значение на число и смотрим поделилось без остатка значит кратно ему, поделилось с остатком значит не кратно.
если соответствует условию то меняем значение на 1 и увеличиваем счетчик количества замен на 1
выводим сам массив и количество произведенных замен.