Ответ на ребус - информация
PascalABC
var a:array of real;
i,n:integer;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
writeln('Исходный массив: ',a);
for i:=0 to n-1 do a[i]:= -a[i];
writeln('Полученный массив: ',a);
end.
Const max=18;
var i,k:byte;
ar:array [1..max] of integer;
s:integer;
begin
writeln('Начальный массив случайных чисел в диапазоне [0,30)');
for i:=1 to max do begin
ar[i]:=random(0,29);
write(ar[i]:6);
end;
k:=0;
s:=0;
for i:=1 to max do begin
if ar[i]>15 then
k:=k+1;
if not odd(ar[i]) then
s:=s+ar[i];
end;
writeln();
writeln('Задание 1. ', 'k=', k);
writeln('Задание 2. ', 's=', s);
end.
1) Язык программирования назван в честь математика <span>Лавлейс Ады
2) Паскаль создан в 1969-1970 году Никлаусом Виртом. Назван в честь Блеза Паскаля, французского математика и физика
3) Разработчиками языка являются </span>Сеймур Пейперт<span> и </span>Идит Харель<span> </span>