Для студентов МЭИ (ТУ) 1 семестрa по предмету Информатика Информатика задача 2.5.3 вариант 24Информатика задача 2.5.3 вариант 24 2019-09-06 СтудИзба

Информатика задача 2.5.3 вариант 24

Описание

Описание файла отсутствует
Картинка-подпись

Список файлов в архиве

Task253var24_2

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

При копировании или цитировании материалов на других сайтах обязательно используйте ссылку на источник

Комментарии

Сопутствующие материалы
Дата публикации 06 сентября 2019 в 23:27
Рейтинг -
0
0
0
0
0
Вариант 24
Автор zzyxel (4,53 из 5)
Цена Бесплатно
Скачивания 4
Просмотры 89
Размер 63,46 Kb
Безопасность Файл был вручную проверен администрацией в том числе и на вирусы
Поделитесь ссылкой:
Свежие статьи
Популярно сейчас