Задайте массив из 10 элементов с датчика случайных чисел и поменять знак всем нечетным элементам на противоположный.выведите на экран исходный и измененный результат
299
364
Ответы на вопрос:
//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.
Популярно: Информатика
-
talyaarpaci12.07.2020 15:18
-
андріанагалег17.03.2021 05:53
-
SashaChif16.08.2022 10:48
-
nata71429.11.2021 11:33
-
hgcfm10.03.2022 20:25
-
smokenmyr03.09.2020 05:25
-
2222222222704.07.2022 15:34
-
sonys841210.04.2022 16:18
-
belok90906.05.2023 04:43
-
ultraomegaus05.06.2021 23:39