1) Основной инструмент передачи, хранения и обработки информации (9 букв).-компьютер 2) Основное устройство ввода информации (10 букв).-клавиатура 3) "Мозг" компьютера (9 букв).-процессор 4) Устройство вывода информации (7 букв).-монитор 5) Устройство хранения программ и данных (6 букв).-память 6) Устройство для быстрого перемещения по экрану и выбора информации (4 буквы).-мышь 7) Носитель информации, на который записывают программы для хранения (7 букв).-дискета 8) Другое название жёсткого диска (9 букв). -винчестер 9) Устройство, с которого можно вывести на бумагу тексты и рисунки (7 букв).-принтер
1) Program NoName; Var i,m : integer; Begin read(m); if m>31 then begin for i:=31 to m do if (i mod 16) = 0 then writeln(i); end; end.
2)Program NoName; Var i,n,x,c : integer; Begin c:=1; x:=0; i:=0; while i<5 do begin if (c mod 13) = 0 then begin x:=x+c; i:=i+1; end; c:=c+1; end; write(x); end.
3)Program NoName; Var i,n,x,c : integer; Begin read(n); c:=1;x:=1;i:=0; while i<n do begin if (c mod 11) = 0 then begin x:=x*c; i:=i+1; end; c:=c+1; end; write(x); end.
4)Program NoName; Var i,m,x : integer; Begin x:=0;i:=1; while x<7 do begin if (i mod 7) = 0 then begin writeln(i);x:=x+1; end;i:=i+1; end; end.
program z1;
var i,n,s:integer;
a : array [1..100] of integer;
begin
write ('Введите количество элементов n < 100: ');
readln(n);
write ('Массив: ');
for i:= 1 to n do
begin
a[i]:=random (21)-10;
write(a[i]:5)
end;
writeln;
s:=0;
for i:= 1 to n do
if a[i]<0 then s:=s+a[i];
writeln ('s = ',s)
end.
Объяснение:
Ошибки
1) нет названия программы и ; после неё
2) в описании массива 3 точки (надо 2)
3) нет кавычек для ввода текста в первом write
4) нет ; после readln (n)
5) нет : при присваивании i в цикле for i = 1
6) нет форматированного вывода или добавленного разделителя в write(a[i])
7) нет ; после первого end
8) нет ; после s:=0
9) нет кавычек для ввода текста в writeln (s = ,s)
10) нет точки после последнего end
Условие
for i:= 1 to n do (перебираем весь массив)
if a[i]<0 then s:=s+a[i]; (если элемент меньше 0, то увеличиваем переменную s (сумму) на него)