СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, Я УЖЕ 30 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!! КТО СКОЛЬКО СМОЖЕТ!2-ЛЮБЫХ, ПО ПРИМЕРУ(СМ. ВЛОЖЕНИЯ)

1. Создайте двумерный массив целых чисел размером 5*2, заполненный числами с клавиатуры и найдите произведение элементов массива, которые заканчиваются на цифру 8 и кратные 4

2.Создайте двумерный массив целых чисел размером 10*15, заполненный случайными числами не больше 100 и найдите количество, сумму и среднее арифметическое элементов массива, которые заканчиваются на цифру 6 и меньше 50

3.Создайте двумерный массив дробных чисел размером 4*4, заполненный случайными числами не больше 2,один знак после запятой и найдите сумму элементов массива, которые больше 1.5

1

Ответы и объяснения

Лучший Ответ!
2014-01-24T00:58:11+04:00
1)
program chik;
uses crt;
const n=5;m=2;
var a:array [1..n,1..m] of integer;
i,j,p: integer;
begin
p:=1;
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
if(a[i,j] mod 10=8)and(a[i,j] mod 4=0)then p:=p*a[i,j];
end;
writeln(p);
end.
2)
program chik2;
uses crt;
const n=10;m=15; 
var a:array [1..n,1..m] of integer; 
i,j,s,k: integer; 
q:real;
begin
randomize;
k:=0;
{k-кол-во,q-сред. знач.,s-сумма}
for i:=1 to n do 
for j:=1 to m do 
begin
a[i,j]:=random(100);
if(a[i,j] mod 10=6)and(a[i,j]<50)then begin
k:=k+1;
s:=s+a[i,j];
end;
end;
writeln(s);
writeln(k);
q:=s/k;
writeln(q);
end.
3)
2)
program chik3;
uses crt;
const n=4;m=4; 
var a:array [1..n,1..m] of  real; 
i,j: integer; 
q:real;
begin
randomize;
q:=0;
for i:=1 to n do 
for j:=1 to m do 
begin
a[i,j]:=random(100)/(random(100)+1);
if(a[i,j]>1.5)then q:=q+a[i,j];
end;
writeln(q);
end.