Var a:array [1..1000] of integer;
k,i,n:integer;
begin
write ('kol-vo elementov v massive=');
readln (n);
write ('k=');readln (k);
writeln ('vvedite massiv');
for i:=1 to n do
readln (a[i]);
write ('massiv: ');
for i:=1 to n do
write (a[i],' ');
if (k<=n) and (k>0) then
for i:=k+1 to n do
a[i-1]:=a[i];
writeln;
write ('massiv posle ydalenija: ');
for i:=1 to n-1 do
write (a[i],' ');
end.
значение переменной s после выполнения алгоритма: 4
6.
Имя массива: Dat
| 16 | 20 | 20 | 41 | 14 | 21 | 28 | 12 | 15 | 35 |
7.
m = 0
8.
| 16 | 20 | 20 | 41 | 41 | 41 | 41 | 41 | 41 | 41 |
9.
Будет выведено число 41
10.
Программа находит наибольшее число в массиве
- это "мозг" ПК, т.е. электронная микросхема, управляющая работой других устройств ПК и программами и данными на ПК
