срочно!
10-11 класс
|
написать программу и блок схему
Belyanskaya1996
07 сент. 2013 г., 15:43:14 (10 лет назад)
DafnaGirl
07 сент. 2013 г., 16:42:13 (10 лет назад)
var a,b,c,i,j:longint;
m:array[1..1000,1..1000] of longint;
begin
read(a,b);
for i:=1 to a do
for j:=1 to b do
begin
read(m[i,j]);
if m[i,j]=0 then
inc(c);
end;
if c>0 then
for i:=1 to a do
for j:=1 to b do
if m[i,j]<>0 then
m[i,j]:=1;
end.
Ответить
Другие вопросы из категории
Даны два целых
числа A и B (A < B). Вывести все целые числа,
расположенные между данными числами (включая сами эти числа), в порядке их
возрастания (убывания), а также количество N этих чисел (с использованием
оператора for, while, repeat)
Читайте также
помогите пожалуйста написать программу!!!СРОЧНО!!!
в одномерном массиве все отрицательные элементы заменить модулем, а положительные заменить числом 888
Вы находитесь на странице вопроса "срочно!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.