Написать программу в ! указание: заполнить двумерный числовой массив и(8,8) случайными целыми числами - id279578920220603 от lolmrminilotr 03.06.2022 15:11

Question

Информатика: Написать программу в ! указание: заполнить двумерный числовой массив и(8,8) случайными целыми числами в интервале [-60,60].написать единую программу для всех ,ответ каждой выводить с новой строки. : создайте новый одномерный массив из элементов,имеющих значение больше -5.

lolmrminilotr · Accepted Answer

//Pascal ABC.NET v3.1 сборка 1172

Var
ar:array of integer;
n,k,i,j:integer;
b1:boolean;
begin
read(n,k);
b1:=false;
setlength(ar,n);
n:=n-1;
writeln('Enter array:');
for i:=0 to n do
readln(ar[i]);
for i:=0 to n-k+1 do
begin;
for j:=i to k+i-1 do
   if ar[i]=ar[j] then b1:=true else b1:=false;
if b1=true then
   break;
end;
if b1=true then
   for i:=0 to n do
    begin;
     if ar[i]>0 then ar[i]:=ar[i]*(-1);
     write(ar[i]:4);
    end
   else
    writeln('Рішення не існує');
end.

Пример ввода:
5 //n
4 //k
2
1
1
1
1
Пример вывода:
-2 -1 -1 -1 -1

MOGZ ответил