tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти сумму 10 элементов массива
Найти сумму 10 элементов массива (на языке паскаль)
help276
1 22.08.2019 14:30
0
Ответы
thewinterstale
05.10.2020 12:45
Var
i,sum:integer;
a:array[1..10] of integer;
begin
sum:=0;
for i:=1 to 10 do
begin
a[i]:=1+random(99);
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
write('Сумма: ', sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
ruslanpavlov8
05.10.2020 12:45
Program prog;
Uses crt;
var a: array[1..10] of integer;
s,i: integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,'] = ');
readln(a[i]);
s:=s+a[i];
end;
writeln;
writeln('Sum = ', s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
555Sasha444
12.05.2020 18:58
Файл book.png был выложен в Интернете по адресу ftp://crox.ru/ book.png. Потом его переместили в каталог home на сайте bibl.ru, доступ к которому осуществляется по...
kisuli1
18.06.2019 11:20
Придумай рисунок который можно создать с клавиатуры.раскрась в рабочей тетради используемые клавиши...
Человекразумный0
18.06.2019 11:20
Напечатать все двузначные числа,сумма цифр которых равна 12. только , как можно проще...
Юлик334
18.06.2019 11:20
Плечевой одежда. древняя русь.( только ! ) 30 технология...
жапрожак1
18.06.2019 11:20
Перевести из одной системы счисления в b1a, d из (16) надо перевести в (4)...
swordfishtrombone
01.08.2019 12:10
Даны значения 3 переменных abc, найти большее значение . объясните как составить алгаритм ( (начало) (конец) )...
Настя21438
01.08.2019 12:10
Какие свойства можно при описании множества объектов? можно ли для множества объектов значения величин? примеры. ! 40...
Lounges
29.12.2020 10:18
Во втором проекте добавить строчку Serial.println (переменная х) , добавить переменную, так чтобы на монитор послед-го интерфейса выводились аналоговые данные с фоторезистора...
fsychih46
29.12.2020 10:17
Дан массив а элемента массива ввести с класиатуры.посчитать количество нечётных элементов...
oxanabondarenkozv5l4
29.12.2020 10:14
ответь на вопросы по ивт. На тему эксель....
Популярные вопросы
В месяце зарплата мамы составляла 4800р. теперь она увеличелась...
1
Пользуясь индикаторами распознать растворы нитрата магния карбоната...
3
Вкаком сосуде давление жижкости на уровне ab ?...
2
Найдите производную функции y=7+6x-2x*корень x...
3
Впрямоугольном параллелепипеде abcda1b1c1d1 известно, что bb1=12см,...
2
Выписать с текста существительные и определить у них род,число,склонение...
1
Каким художественным средством является выражение застонала земля...
1
Составьте словосочетание с существительным или с личным местоимением.слова:...
2
Мое сердце в городе стих на с переводом на...
3
Найди лишнее слово среди однокоренных слов: а)город б)городской...
2
i,sum:integer;
a:array[1..10] of integer;
begin
sum:=0;
for i:=1 to 10 do
begin
a[i]:=1+random(99);
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
write('Сумма: ', sum);
end.
Uses crt;
var a: array[1..10] of integer;
s,i: integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,'] = ');
readln(a[i]);
s:=s+a[i];
end;
writeln;
writeln('Sum = ', s);
end.