1. Информатика
  2. Написать программу вычисляющую

Написать программу вычисляющую сумму 12 элементов одномерного массива, заданного случайным образом.

okru24057p00ymy okru24057p00ymy    1   04.10.2019 10:50    0

Ответы
magamusaev201 magamusaev201  09.10.2020 19:25

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

i,s: integer;

begin

for i:=1 to 12 do

begin

a[i]:=random(100);

s:=s+a[i];

write (a[i],' ')

end;

writeln;

write (s)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Ateśbogegi Ateśbogegi  12.07.2019 09:00
Переведите в десятичную систему двоичное число 100001100...
narmanbet narmanbet  26.09.2019 03:50
Чем посимвольное кодирование отличается от обычного, пример...
ВелмаУмница ВелмаУмница  26.09.2019 04:03
Из 27 монет 1 фальшивая-она легче остальных. надо определить фальшивую монету, сделав как можно меньше взвешиваний!...
marta4563556 marta4563556  26.09.2019 04:03
Что в информатике означает or else down to then while?...
kater7829 kater7829  26.09.2019 04:03
Определите значение переменной после выполнения фрзагмента : а=10, б=5; if (a 1) and (a b) then a: =a-5; if (a 1) and (a=b) then a: = a-5 как это делать? ? объясните...
taroslav taroslav  26.09.2019 04:03
Где ошибка var a,b: real; c: string; begin writeln( цисло тигров ); read(a); b: =30; if a =b then writeln( норма ); if a writeln( угроза ); writeln( угроза исчезновения...
makhero111 makhero111  26.09.2019 04:04
Добрый вечер! мне с информатикой. что будет напечатано на экране в результате выполнения следующей программы: a: =1; b: =5; while a begin writeln (a,в); a: =1;...
diana0483 diana0483  26.09.2019 04:04
Юзер вася чайников решил приобрести себе компьютер. hовый компьютер стоит в фирме 1000 у.е. hо, поскольку у васи уже был блок питания, он решил докупить остальное...
evelink222 evelink222  26.09.2019 04:04
Производится одноканальная (моно) запись звука с качеством 8 бит и частотой оцифровки 128 кгц. длительность звука 8 секунд. сжатие данных не производится. определите...
Fetissh1 Fetissh1  26.09.2019 04:04
Вкорзине лежат 8 черных шаров. сколько бит информации несет сообщение о том, что из корзины достали черный шар? ....

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