Интернет стал предметом первой необходимости. В немможно совершать покупки, общаться с друзьями, получатьобразование, работать. Возможности Интернета стали практически безграничными.
Говорят, без еды человек может прожить примерно 2 месяца (если будет пить), без воды человек погибает через 5-7 дней, а можно ли прожить без интернета??? Вы представляли когда-нибудь мир без Интернета?
Недавно, люди жили без великого творения - Интернет. Остается только удивляться: как? В последние годы, из информационного ресурса, Интернет превратился в незаменимую и очень важную часть нашей жизни. Работа, учёба, общение — всё связано с Всемирной Паутиной. Сеть перестала быть источником информации — теперь это поставщик услуг: увеселительных, образовательных.… Да любых. Чтобы скрасить одинокий вечер люди не идут в парк или кафе, они заходят в Интернет. Они ищут развлечений в электронной системе, а не среди живых людей.
Интернет стал предметом первой необходимости. В немможно совершать покупки, общаться с друзьями, получатьобразование, работать. Возможности Интернета стали практически безграничными.
Говорят, без еды человек может прожить примерно 2 месяца (если будет пить), без воды человек погибает через 5-7 дней, а можно ли прожить без интернета??? Вы представляли когда-нибудь мир без Интернета?
Недавно, люди жили без великого творения - Интернет. Остается только удивляться: как? В последние годы, из информационного ресурса, Интернет превратился в незаменимую и очень важную часть нашей жизни. Работа, учёба, общение — всё связано с Всемирной Паутиной. Сеть перестала быть источником информации — теперь это поставщик услуг: увеселительных, образовательных.… Да любых. Чтобы скрасить одинокий вечер люди не идут в парк или кафе, они заходят в Интернет. Они ищут развлечений в электронной системе, а не среди живых людей.
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 (сумму) на него)