дан массив 7×7 гсч (-5,5) если один элемент строки равен 0 то заменить все элементы на 0
10-11 класс
|
const n=7;
var a: array [1..n,1..n] of integer;
i,j,k:integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=-5+random(11);
write(a[i,j],' ');
end;
writeln;
end;
for i:=1 to n do begin
for j:=1 to n do begin
if a[i,j]=0 then begin
for k:=1 to n do
a[k,j]:=0;
end;
end;
end;
writeln('=======================================');
for i:=1 to n do begin
for j:=1 to n do begin
write(a[i,j]:2,' ');
end;
writeln;
end;
end.
элементы вводятся рандомно от (-5;5)?если встретится 0 от обнулить весь массив или строку,столбец?
Другие вопросы из категории
1/(1*2*3*...n)
Вычислить значение функции Y(x задается с клавиатуры)
Y равен системе: x, при x<-5
|x+2|, -5<x<5
cosx, x>5
Сообщение занимает 3 страницы по 25 строк. В каждой строке записано по 100 символов.сколько символов в использованом алфавите,если всё сообщение содержит 1125 байтов.
Читайте также
если же первый элемент массива равен "B" , то переносим его на третью с конца позицию.Каку юпоследовательность получил Незнайка, если данный алгоритм он применил 6 раз?
все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .