Нужно =(( , как сделать, чтобы.. например чисел 10 каждое второе (по порядку) выводить (да) каждое четвёртое (по порядку) выводить (нет) (язык паскаль)

298

479

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

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

bsvetlana760

Информатика

4,5(69 оценок)

var a: array[1..100] of integer; i, n: integer; begin randomize; write('введите количество элементов '); readln(n); writeln('исходный массив: '); for i : = 1 to n do begin a[i] : = random(21) - 10; write(a[i], ' '); end; writeln; writeln('вывод массива в соответствии с условием: '); for i : = 1 to n do begin if i mod 4 = 0 then write('нет ') else if i mod 2 = 0 then write('да ') else write(a[i], ' '); end; end.

Kybe009

Информатика

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

var a: array [1..10] of integer; i: integer; begin for i: =1 to 10 do read (a[i]); for i: =1 to 10 do if i mod 4 =0 then write ('нет',' ') else if i mod 2=0 then write ('да', ' ') else write (a[i],' '); end.

вот вставьте, если не работет напишите

BugaevaAina

Информатика

4,5(37 оценок)

1) var м = [], n = prompt("n: "); for (let сч = 0; сч < n; сч++) м.push(; alert(м.reduce(function (пр, тек) { return пр + (тек < м[м.length - 1] ? тек : 0); }, 0));

2) var x = [], b = prompt("b: "); for (let сч = 0; сч < 100; сч++) x.push(math.floor(math.random() * 100)); alert(x.reduce(function (пр, тек) { return пр + (тек == b ? тек : 0); }, 0));