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

Напишите программу вычисляющую сумму четных элементов массива

👇
Ответ:
Dariapororor
Dariapororor
28.02.2020
Const n=10; 
var a:array[1..n] of integer;
i,s:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i],'  ');
 end;
writeln;
s:=0; 
for i:=1 to n do
 if a[i] mod 2 = 0 then s:=s+a[i];
writeln('s = ',s);
end.

Пример:
Исходный массив:
5  -6  -7  2  3  5  -7  -2  -6  -5  
s = -12
4,6(84 оценок)
Ответ:
baybiboom
baybiboom
28.02.2020
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
  Writeln('Сумма четных ',a.Where(x->x.IsEven).Sum)
end.

Тестовое решение:
n= 15
40 88 6 42 57 56 80 78 71 56 73 91 74 19 95
Сумма четных 520
4,4(53 оценок)
Открыть все ответы
Ответ:
justnastasyaaa
justnastasyaaa
28.02.2020
A,b,c - стороны прямоугольного треугольника;
d - радиус описанной окружности около прям. треуг.
e - длинна окружности описанной около прямоуг. треугольника;

var a,b,c,d,e:Real;
begin
writeln ('Введите (через пробел) 2 катета прямоугольного треугольника: ');
readln (a,b); //вводим 2 катета
c:=SQRT((a*a)+(b*b)); //находим 3 сторону (гипотенузу)
d:=0.5*c; //радиус описанной окружности около прям. треуг
e:=2*3.14*d; //теперь находим длину окружности описанной около прям. треуг.
writeln ('Длина окружности описанной около прямоугольного треугольника = ',e);
end.

P.S. то что после // - это комментарий (в паскале он будет выделен другим цветом), это для того что бы было понятно, что сейчас делаем, если комментарии не нужны - их можно удалить, на правильность работы программы это никак не повлияет
4,6(16 оценок)
Ответ:
секрет93
секрет93
28.02.2020

Надо установить 32-bit java и всё заработает. Я так сделал и всё. Я ввожу правильный (:11111) адрес сервера. Q: Я не могу двигаться при входе в игру, что делать?. зайти - ввожу ke. org:12317 и сначало долго висит надпись Вход и после этого - Подключение. Здравствуйте! Я установил последнюю версию Minecraft совсем недавно. Но я не могу. Никак! Делайте пароли запоминаемые и не очень большие. Когда я играю на серверах с мини-играми, они долго грузятся. 2.1 Загрузка и запуск игры; 2.2 Вход в игру; 2.3 Управление и интерфейс. После объединения аккаунта Minecraft с общим аккаунтом.

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