Ребят, проходим паскаль, програмирование — ничего не понимаю, сколько бы не…

Question

91

Ребят, проходим паскаль, програмирование — ничего не понимаю, сколько бы не пыталась. На дом задали написать 2 программы к задачам. Вот задачи 1) Составить программу к задаче, которая считает сумму чисел, введенных с клавиатуры до первого отрицательного числа. 2) Сформировать и вывести на печать массив a) ALFA (1… 10) ввод с клавиатуры б) DECO (1… 50) DECO[I]=I^2 в) BETTA (1… 100) BETTA=RANDOM (200)

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

course · Accepted Answer

98

course

31 марта 2023

var sum, a: integer; begin sum: =0; a: =0; repeat sum: =sum+a; read (a); until a < 0; writeln (sum); end. var ALFA: array [1… 10] of integer; DECO: array [1… 50] of integer; BETTA: array [1… 200] of real; i: integer; begin for i: =1 to 10 do read (alfa[i]); for i: =1 to 50 do deco[i]: =sqr (i); for i: =1 to 100 do betta[i]: =random (200); writeln; for i: =1 to 10 do write (alfa[i]); writeln; for i: =1 to 50 do write (deco[i]); writeln; for i: =1 to 100 do write (betta[i]); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: