Program sum var n,i,s: integer; a: array[1..1000] of integer; begin write ('vvedite n'); readln(n); write('vvedite n chisel'); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: = s+a[i]; write('summa ravna', s) end вроде так. это в консоли, так что она может сразу закрыться после выполнения программы.
Ответ дал: Гость
2)program nah;
var s: string;
begin
s: = 'рэки,горы и '; (присвоение значения)
writeln (s); (вывод)
delete (s, 5,6); (удаление из строки s начиная с 5-го символа 6) символа)
Популярные вопросы