ДЗ: Информатика задача 2.5.3 вариант 24 вариант 24
Описание
Характеристики домашнего задания
Список файлов
- Информатика задача 2.5.3 вариант 24
- Task253var24_2.cfg 386 b
- Task253var24_2.dof 1,73 Kb
- Task253var24_2.dpr 1,02 Kb
- Task253var24_2.exe 45 Kb
- Task253var24_2.txt 1,02 Kb
- Task253variant24_2.doc 214,5 Kb
- Прочти меня!!!.txt 136 b
program Task253var24_2;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math;
const l=10;
type
mas=array[1..l,1..l] of Real;
mas1=array[1..l] of Real;
var
i,j,m,k,n:Integer;
t:Real;
a:mas;
sum:mas1;
f:Boolean;
sa:mas1;
begin
write ('n = '); read (n);
write ('m = '); read (m);
write ('t = '); read (t);
for i:=1 to n do
for j:=1 to m do
begin
write('A[',i,',',j,']=');
read (a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
sum[i]:=Sum[i]+a[j,i];
end;
sa[i]:=Sum[i]/m;
writeln ('sa[',i,'] = ',sa[i]:6:2);
end;
for k:=1 to n do
begin
if sa[k]<t then f:=true
else f:=false;
writeln (k,' column f = ',f);
end;
if f then
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=Sqr(a[i,j]);
for i:=1 to n do
for j:=1 to m do
Writeln ('SQR (A [ ',i,',',j,' ]) = ',a[i,j]:6:2);
end
else Writeln ('cycle ended');
read(n);
end.
Файл скачан с сайта StudIzba.com
При копировании или цитировании материалов на других сайтах обязательно используйте ссылку на источник
Начать зарабатывать