Написать программу, которая вводит массив из 8 целых чисел и выводит на экран элементы с четными номерами

161

366

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

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

scream75821

Информатика

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

program zadacha1; uses crt; const n=5; //размер массиваvar m: array[1..n] of integer; i: integer; beginwriteln('исходный массив'); for i: = 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin // дляm[i]: =random(101)-50; // случайногоwriteln(m[i]); // этиend; //writeln('прямой вывод'); for i: =1 to n dowriteln(m[i]); writeln('обратный вывод'); for i: =1 to n dowriteln(m[n+1-i]); end.

program zadacha2; uses crt; const n=5; // размер массиваvar m: array[1..n] of integer; i: integer; beginwriteln('исходный массив'); for i: = 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin // дляm[i]: =random(101)-50; // случайногоwriteln(m[i]); // этиend; //writeln('вывод'); for i: =1 to n doif i mod 2 = 0 then writeln(m[i]); end.

program zadacha3; uses crt; const n=5; // размер массиваvar m: array[1..n] of integer; i: integer; beginwriteln('исходный массив'); for i: = 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin // дляm[i]: =random(101)-50; // случайногоwriteln(m[i]); // этиend; //writeln('вывод'); for i: =1 to n doif (n+1-i) mod 2 < > 0 then writeln(m[n+1-i]); end.

Пушинканя231

Информатика

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

Язык не указан. на паскале будет так: program stepen; var n,s: real; i: integer; begin write('введите число: '); readln(n); i: =0; while i< > 10 do begin s: =power(n,i+1); i: =i+1; writeln(n,' в ',i,' степени = ',s); end; end.