Есть ответ 👍

Задайте массив из 10 элементов с датчика случайных чисел и поменять знак всем нечетным элементам на противоположный.выведите на экран исходный и измененный результат

299
364
Посмотреть ответы 2

Ответы на вопрос:


//pascalabc.net 3.2 begin var a: =arrrandom (random(5, 10), -15, 15); a.println; for var i: =0 to length(a)-1 do if a[i].isodd then a[i]*=-1; a.println end.

  держи:

 

program kk; uses crt; var a: array [1..5,1..5] of integer; i,j: integer;   beginclrscr; randomize; for i: =1 to 5 dobeginfor j: =1 to 5 doa[i,j]: = random(90)+10; end; for i: =1 to 5 dobeginfor j: =1 to 5 do write(a[i,j],' '); writelnend; writeln; writeln; for i: =1 to 5 dobeginfor j: =1 to 5 dobegin  if (a[i,j] > 0) and (a[i,j] mod 3 = 0) thenbeginwriteln(a[i,j],' [',i, ',',j,']'); end; end; end; readkey; end. 

Популярно: Информатика