Составить программу на языке паскаль, которая создает массив из 10 элементов целочисленного типа и заполняет массив первыми 10 четными числами (начиная с числа 2). программа должна вывести значения последних 3 элементов массива.

295

299

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

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

Sezimka1111

Информатика

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

Const last = 3; //сколько последних const count = 10; //всего чисел var arr: array [1..count] of integer; i,a: integer; begin while i< count do begin a+=1; if a mod 2 = 0 then begin i+=1; arr[i]: = a; end; end; for i: = 1 to last do writeln(arr[count-last+i]); end.