Реферат: Одномерные массивы. Организация ввода и вывода данных
sa[3]:=s/10;
Writeln('srednee arifmeticheskoe tretih 10 chisel=',sa[3]:2:2);
End;
max:=sa[1];
for i:=1 to 3 do
if sa[i]>max then
Begin
max:=sa[i];
End;
min:=a[1];
for i:=1 to 3 do
if sa[i]<min then
Begin
min:=sa[i];
End;
Двумерные массивы. Организация ввода и вывода.
Задание 16.
Организовать два массива a[i] и b[i] целых чисел. Окружность задана уравнением (х-1)2 +(у+2)2 =16. Среди соответствующих пар (a[i], b[i]) вывести те, которые являются координатами внешних точек окружности.
Program p3;
Uses crt;
Var a:array[1..10]of integer;
b:array[1..10]of integer;
i:integer;
x,y:real;
Begin
ClrScr;
Writeln('Vvedite massiv a');
For i:=1 to 10 do Readln(a[i]);
Writeln('Vvedite massiv b');
For i:=1 to 10 do Readln(b[i]);