сервис вопросов и ответовПомогите пожалуйста написать часть программы в PascalABC!
10-11 класс|
|
Прикрепленные изображения
Ares15
03 апр. 2017 г., 14:53:54 (7 лет назад)
Armine123
03 апр. 2017 г., 17:10:38 (7 лет назад)
uses crt;
Var
i,j: integer;
m,n: integer;
count,sum:integer;
a:array [1..100,1..100] of integer;
begin
clrscr;
randomize;
write('Enter count strings: ');
readln(m);
write('Enter count columns: ');
readln(n);
sum:=0;
Count:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(20) - 10;
write(a[i,j],' ');
if a[i,j]>0 then begin
sum:=sum+a[i,j];
inc(count);
end;
end;
writeln;
end;
writeln(sum/count);
repeat until keypressed;
end.
Комменты неохота было писать думаю разберешься.
Ответить
Другие вопросы из категории
Выпуклый четырехугольник на плоскости задан координатами своих вершин. Найти длины его диагоналей.
Помогите, эту программу надо написать в ПАСКАЛЕ.
Зарaнее спасибо.
как визуально можно определить,является
графическое изображение гиперссылкой,не щелкая по нему мыщью
Помогите решить на Java С клавиатуры вводятся количество целых чисел N и сами эти числа. Разработайте приложение, которое вычисляет
количество отрицательных элементов в этой последовательности
Вот моя версия не могу найти ошибку:
package lab_01_gr_01_ind;
Читайте также
написать программу на Assembler
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
ПОМОГИТЕ, ПОЖАЛУЙСТА, ПРОСТО РАЗЪЯСНИВ ЗАДАНИЕ. ПЖЛ)))
.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)
Помогите, пожалуйста, разобраться и составить верный алгоритм. В задаче требовалось написать программу на Паскале и сравнить её с приведенной в учебнике.
"Подсчитайте кол-во операций в приведенном алгоритме (Ответ приведите в виде функции от параметра n)." Подсчитать кол-во операций самому - это возможно, а как привести ответ в виде функции от параметра n - я не знаю. Помогите, пожалуйста, понять это задание. Заранее благодарен!
Помогите пожалуйста.
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
Вы находитесь на странице вопроса "Помогите пожалуйста написать часть программы в PascalABC!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.