сервис вопросов и ответовСРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, Я УЖЕ 30 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!! КТО СКОЛЬКО СМОЖЕТ!2-ЛЮБЫХ, ПО
10-11 класс|
|
ПРИМЕРУ(СМ. ВЛОЖЕНИЯ)
1. Создайте двумерный массив целых чисел размером 5*2, заполненный
Ikrinka29
12 авг. 2014 г., 5:34:15 (9 лет назад)
Ivan77777Иван
12 авг. 2014 г., 8:17:28 (9 лет назад)
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.
Ответить
Другие вопросы из категории
Поиск результатов по фразе "A 5. Автомат получает на вход четырёхзначное восьмеричное число. По этому числу строится новое число по следующим правилам. 1.
Складываются первая и вторая, а также третья и четвёртая цифры. 2. Полученные два числа в восьмеричной системе счисления записываются друг за другом в порядке возрастания (без разделителей). Пример. Исходное число: 4531. Суммы: 4+5 = 9; 3+1 = 4. Результат: 411. Определите, какое из следующих чисел может быть результатом работы автомата. 1) 117 2) 1213 3) 1511 4) 1517
Здравствуйте.
Необходим ход решение задачи, подробный
О дате рождения одного китайского поэта известно,что он родился ранее 1100 года,но позднее 1070,а также,что год кратен 7 и 5 одновременно.Составьте
программу проверяющую,может ли вводимый год быть его годом рождения?P.S. Программа Паскаль.
Читайте также
СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, Я УЖЕ 30 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!!
1.Дано массив 5*5, заполнить массив случайными числами не больше 30 и найти сумму парных элементов массива, которые находятся под главной диагонали и количество не парных элементов которые находятся над главной диагонали.
СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО,
УМОЛЯЮ, ТОЛЬКО ПРАВИЛЬНО!!!Я УЖЕ 30 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!! КТО СМОЖЕТ, ТОЛЬКО ПРАВИЛЬНО! КТО, ЧТО СМОЖЕТ, НО НАДО ВСЕ, НА ЗАВТРА!!!
СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, ТОЛЬКО ПРАВИЛЬНО!!!Я
УЖЕ 20 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!! КТО СМОЖЕТ, ТОЛЬКО ПРАВИЛЬНО!
вывести все двузначные числа сумма которых равна их произведению??!!или найти все двузначные числа которые делятся на nили содержат цифру n! ?(все в
паскале) помогите пожалуйста на завтра надо!!?
Вы находитесь на странице вопроса "СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, Я УЖЕ 30 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!! КТО СКОЛЬКО СМОЖЕТ!2-ЛЮБЫХ, ПО", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.