Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
const
n = 10; //количество элементов массива
var
a: array [1..n] of real;
i: integer;
begin
for i: = 1 to n do
writeln('введите ', i, ' элемент массива');
readln(a[i]); //вводим очередной элемент массива
end;
write('исходный массив: ');
write(a[i], ' '); //выводим исходный массив
writeln; //перевод на новую строку
write('полученный массив: ');
a[i]: = a[i] * a[n]; //элемент массива умножаем на последний элемент
write(a[i], ' '); //выводим полученный элемент массива
end.
компьютер входит в состав бытовой техники.
компьютер является надсистемой для компьтерных программ.
рrogram summa;
var s, a, b, c : word;
write('введите a - > '); readln(a);
write('введите b - > '); readln(b);
write('введите с - > '); readln(c);
s=а+в+с
write(' сумма равна ',s);
readln
в принципе все, должно быть правильно
Популярные вопросы