1. Информатика
  2. Pascal abc пользователь вводит

Pascal abc
пользователь вводит массив из 5 целых чисел , найти сумму этих чисел. (напиши те код )

Polklop Polklop    2   17.12.2019 01:36    0

Ответы
захарчинкозахар захарчинкозахар  10.10.2020 21:09

program vlasov_loc;

   var i, s: integer;

   var a: array [1..5] of integer;

begin

   for i:= 1 to 5 do readln(a[i]);

   for i:= 1 to 5 do s:=s+a[i];

   writeln ('Сумма элементов массива - ', s)

End.

   

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
moon455808 moon455808  04.06.2019 12:00
Сделать в pascal abc. найти сумму первых 5-ти элементов одномерного массива...
vis2209 vis2209  09.10.2021 00:04
Между посёлками M, K, L, P, Nесть дороги, протяжённость которых указана в таблице. Найди кратчайший путь между посёлками M и N. Перемещаться можно только по дорогам, которые указаны...
kapyringeorgy kapyringeorgy  09.10.2021 00:06
Почему код который используется в компьютерах называется двоичным?...
aygerimorazhan aygerimorazhan  09.10.2021 00:12
Кавказская Горная обсерватория ГАИШ МГУ в карачаево-черкесской Республике устанавливает новый телескоп чтобы передавать данные снегу нужно высокоскоростной канал связи с Москвой....
as79118487190 as79118487190  15.03.2019 19:30
Данны размеры сторон тругольника ю вывести на экран при function или procedure(на выбор) слово истинно если треугольник равнобедренный и ложно если треугольник не равнобедренный....
Сырочег Сырочег  26.05.2021 10:35
Три ячейки в одной 3 яблоко во второй 2 яблока в третьей 1. Сформировать четвертую ячейку, в которой будет 50 яблок из этих ячеек. После этого заполнить ее из третьей ячейке, пока...
Snegina85 Snegina85  26.05.2021 10:37
Людина у системі інформаційної безпеки є: 1) Найслабшим елементом, яким може вимкнути всі інші2) Людина є елементом системи інформаційної безпеки 3) Найслабшим елементом, який завжди...
НуриманН НуриманН  22.04.2021 11:37
Потрібно задумати число та додати до нього 10, якщо воно не менше ніж 3;додати до нього 20, якщо воно не меншеніж 3, але менше ніж 25; відняти віднього 1, якщо воно не менше ніж 25.Виконайте...
krop40 krop40  22.04.2021 11:38
С ИНФОРМАТИКОЙ:Складіть проект для малювання орнаменту, наведеного на малюнку 3.21. ​...
53490 53490  02.02.2021 15:32
Түркілердің өткен өмірі қандай болған? сипаттап жазып бер​...

Популярные вопросы