Массивы в Паскале
5-9 класс
|
1. Вы посетили магазин и купили 10 видов товара. В таблицу
1
for i:=1 to 10 do s:=s+T[i]*C[i]
2
a:array[1..31] of real;
3
for i:=1 to N do
begin
readln(a[i];
s:=s+a[i];
end;
s:=s/N;
writeln(s)
4
Program massiv;
Var
a:array[-10..10] of real;
i:integer;
Begin
For
i:=-10 to 10 Do
Read(a[i]);
For
i:=-10 to 10 Do
a[i]:=a[i]/10;
For
i:=-10 to 10 Do
Writeln(a[i])
End.
Другие вопросы из категории
Что такое язык программирования?
Что такое электрический ток?
Какие бывают батарейки и аккумуляторы?( Какое у них напряжение и размеры).
Читайте также
Помогите, пожалуйста, решить задачу!
Определить количество дней в первой декаде месяца, когда температура была выше средней.
Исходные данные: T - массив температуры
Промежуточные данные: i - порядковый номер
SUM - суммированная температура за 10 дней
SRT - средняя температура за 10 дней
Результирующие данные: K - количество дней с температурой выше средней
SUM:=SUM+T[i]
SRT:=SUM/10
K:=K+1, если выполняется SRT<T[i]
_______________________________
Program KTD
var T:array [1..10] of real;
SUM, SRT:real;
i,K:byte;
тема двумерные массивы
тоже паскаль) напишите пожааалуйста