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

Подсчитать сумму квадратов отрицательных элементов одномерного массива вещественных чисел. паскаль.

👇
Ответ:
Kirikplay11
Kirikplay11
25.10.2021
Const
   N = 13;
Var
   A:array[1..N] of real;
   i:integer;
   S:real;
Begin
S:=0;
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random*N-N/2;
    Write(A[i]:0:3,' ');
    if A[i]<0 then S:=S+A[i]*A[i]
    End;
WriteLn;
WriteLn;
WriteLn('S = ',S)
End.
4,6(72 оценок)
Ответ:
ichinichi
ichinichi
25.10.2021
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal('Вводите:',ReadInteger('n='));
  Writeln('S=',a.Where(x->x<0).Select(x->x*x).Sum)
end.

Пример
n= 5
Вводите: 12 -5 0 -7.5 9
S=81.25
4,6(32 оценок)
Открыть все ответы
Ответ:
fil2143878
fil2143878
25.10.2021
3)
var x, y, min, max: real;
label M1;
begin
write('x=');
readln(x);
write('y=');
readln(y);
If x>y then
begin
min:=x;
max:=y;
goto M1;
end
else
min:=y;
max:=x;
goto M1
M1: writeln('min=', min:8:3, ' max=', max:8:3);
end.
2) var a, b, c: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
If (a=b) and (b=c) then
begin
writeln('Треугольник равносторонний');
end
else
writeln('Треугольник неравносторонний');
end.
1) var a, b: real;
begin
write('Допустимая скорость =');
readln(a);
write('Скорость водителя =');
readln(b);
If (a=b) or (a>b) then writeln('Водитель не превысил скорость');
If a<b then writeln('Водитель превысил скорость');
end.

Я надеюсь, что я правильно поняла задание первой и второй задачи о:
4,7(77 оценок)
Ответ:
anmag
anmag
25.10.2021

Проверить, что две клетки стоят в одной строке или в одно строке, просто: надо проверить, что равны соответствующие иксы или игреки. Немного сложнее проверить, что две клетки стоят на одной диагонали. Так будет, если |x1 - x2| = |y1 - y2|.


Код:

# python 3
x1, y1 = map(int, input().split())
x2, y2 = map(int, input().split())
in_one_row = x1 == x2
in_one_col = y1 == y2
in_one_diag = x1 - x2 == y1 - y2 or x1 - x2 == y2 - y1
if in_one_row or in_one_col or in_one_diag:
    print("YES")
else:
    print("NO")
4,6(24 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ