Написать мини сказку, в которой должны присутствовать компьютер, мышь, клавиатура, монитор и тому подобное( любое что связанно с устройствами ввода информации)
Ответы на вопрос:
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.
Популярно: Информатика
-
FalconGamer09.11.2021 19:15
-
ek72Wasdk17.11.2021 12:05
-
antarxanoff200130.06.2020 09:15
-
Gregory1507.04.2020 09:00
-
kuchakshoevaZ07.04.2021 05:49
-
mamutova030325.12.2020 23:47
-
Maksat323212309.05.2021 20:03
-
DANIKom16.06.2021 17:41
-
Афооня12.10.2021 17:33
-
anastasiya11лет08.05.2021 20:31