Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лабораторная работа / лаба 5
.txt Program lab_5;
var
a, b, c:array[1..10} of integer;
i, j, n:integer;
begin
writeln('Введите массив');
for i:=1 to 10 do readln(a[i]);
begin
b[i]:=sqr(a[i]);
for i:=1 to n do write(' ',b[i]);
c[i]:=sqrt(a[i]);
for i:=1 to n do write(' ',c[i]);
end.
var
a, b, c:array[1..10} of integer;
i, j, n:integer;
begin
writeln('Введите массив');
for i:=1 to 10 do readln(a[i]);
begin
b[i]:=sqr(a[i]);
for i:=1 to n do write(' ',b[i]);
c[i]:=sqrt(a[i]);
for i:=1 to n do write(' ',c[i]);
end.
Соседние файлы в папке лабораторная работа