сервис вопросов и ответовПрограмма в Pascal
10-11 класс|
|
определить количество положительных элементов в двумерном массиве 5x4
Panteramba
07 марта 2014 г., 20:35:48 (10 лет назад)
Zharkov05
07 марта 2014 г., 21:09:04 (10 лет назад)
const n=5;
const m=4;
var i,j,Sch: integer;
a:array[1..n,1..m] of integer;
Begin
Sch:=0;
For i:=1 to 5 do begin
For j:=1 to 4 do begin
a[i,j]:=random(73)-23;
write(a[i,j], ' ');
If a[i,j]>0 then Sch:=Sch+1;
end;
end;
writeln;
writeln('kollichestvo= ', Sch);
end.
Ответить
Другие вопросы из категории
Человек говорит в среднем 8 часов в день и его речь может быть записана 10*А (102) символами в час. Вычислить информационный объем произнесенных
человеком слов за 1 год.
Читайте также
Помогите пожалуйста!! ) составить программу в "Pascal abc"!!)
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
Написать программу в Pascal, используя массивы.
Дано массив А[1..n]. Сделать программу которая выводит те элементы массива? индексы которых являются степени двойки
Желательно с обьяснением строк
Помогите написать код программы в Pascal для задачи:
дано натуральное число n среди чисел 1,2 ... n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел.
Заранее огромное спасибо!!
ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В PASCAL! ПОЖАЛУЙСТА!
Дан массив X(N,M). Если первый элемент массива положительный, то найти сумму элементов среди элементов четных строк массива, иначе произведение.
От прямоугольника 324х141 отрезают квадраты со
стороной 141, пока это возможно. Затем вновь отрезают квадраты со стороной,
равной 324-2*141=42 и т.д. На какие квадраты и насколько будет разделен прямоугольник?
Решение программы в Pascal ABC
Вы находитесь на странице вопроса "Программа в Pascal", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.