Напишите программу на паскале массивы

@pexota · Регистрация: 27.06.2010

Author24 — интернет-сервис помощи студентам

Напишите программу формирования массива размером 5*5 с помощью дaтчикa случайных чисел. Замените в нем все отрицательные значения элементов суммой значения элементов первой строки массива. Выведите на экран исходный и измененный массивы

@Puporev · 30.06.2010, 10:39

Pascal

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j:byte;
    s:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
s:=0;
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(20)-5;
     write(a[i,j]:4);
     if i=1 then s:=s+a[i,j];
    end;
   writeln;
 end;
writeln('Сумма в первой строке=',s);
writeln;
writeln('Замена отрицательных суммой::');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if a[i,j]<0 then a[i,j]:=s;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.

@ZooMZooM55 · 20.10.2010, 22:12

в массиве из 40 элементов подсчитать число элементов с четными номерами имеющими значение False ....

@pexota 3 / 3 / 0 Регистрация: 27.06.2010 Сообщений: 10
		1
	Напишите программу на паскале массивы 30.06.2010, 10:18. Показов 933. Ответов 2 Метки нет (Все метки) Напишите программу формирования массива размером 5*5 с помощью дaтчикa случайных чисел. Замените в нем все отрицательные значения элементов суммой значения элементов первой строки массива. Выведите на экран исходный и измененный массивы 0

@ZooMZooM55 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 9
	20.10.2010, 22:12	3
	в массиве из 40 элементов подсчитать число элементов с четными номерами имеющими значение False .... 0

Напишите программу на паскале массивы

Решение