var c, a: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 1 to 20 do begin a[i] := c[20 - i + 1]; write(a[i], ' '); end; end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var c: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 20 downto 1 do write(c[i], ' '); end.
Program z3; var A:array[1..3] of string; var B:array[1..3] of string; i,k:byte; begin writeln('Ввод названий газет: '); for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end; writeln('Ввод подписчиков: '); for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin if (A[i]='правда') and (B[i]= 'петров') then begin k:=i; writeln('Да, Петров выписывает газету ',A[i]); end; end; end.
Ввод названий газет: [1]Книга [2]Правда [3]Вера Ввод подписчиков: [1]Библиотекарь [2]Петров [3]Гундяев Да, Петров выписывает газету Правда
Данная запись читается как:
Присвоить переменной w значение 135.
Кстати, этот язык - Паскаль (Pascal)