М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ирт3
ирт3
29.03.2023 01:07 •  Информатика

Объясните что такое ОЕ из игры легенды дракономании, это слово есть на 6 уровне прокачке стихий драконов

👇
Открыть все ответы
Ответ:
romapotseluiko
romapotseluiko
29.03.2023

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 (сумму) на него)

4,5(37 оценок)
Ответ:
shaxzad123
shaxzad123
29.03.2023

uses graphabc;  

var  

p:array[0..3]of point, t:integer;  

procedure lines;  

begin  

  line(100,100,300,300);  

  line(100,300,300,100);  

  line(200,100,200,300);  

  line(100,200,300,200);  

end;  

begin  

p[0].x := 150; p[0].y := 200;  

p[1].x := 200; p[1].y := 250;  

p[2].x := 250; p[2].y := 200;  

p[3].x := 200; p[3].y := 150;  

SetBrushColor(clblack);  

readln(t);  

if t < 0 then  

begin  

  Polygon(p[0],p[1],p[2],p[3]);  

  lines;  

end;  

if t > 0 then  

begin  

  circle(200,200,50);  

  lines;  

end;  

end.

4,4(84 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ