Составьте программу( pascal), которая заполняет массив a (1..10) случайными целыми числами от 1 до 20 и выводит на экран элементы, значения которых больше 5 и меньше 15

294

434

Посмотреть ответы 3

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

Diankao4ka

Информатика

4,4(77 оценок)

Program program1; var a: array [1..10] of integer; int: integer; begin for int: =1 to 10 do begin a[int]: =rndom(20)+1; write(a[int],' ') end; writeln; for int: =1 to 10 do if (a[int]> 5) and (a[int]< 15) then write(a[int],' ') end.

DmitriiSh197

Информатика

4,7(66 оценок)

Var a: array [1..10] of integer; i: integer; begin for i: =1 to 10 do begin a[i]: =rndom(20)+1; write(a[i],' ') end; writeln; for i: =1 to 10 do if (a[i]> 5) and (a[i]< 15) then write(a[i],' ') end.

saltanatsultan

Информатика

4,7(17 оценок)

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin writeln(readseqintegerwhile(g-> g< > 0).where(x-> (x mod 2< > 0) and (x mod 7=; end.