В одномерном массиве A из n(50) элементов найти сумму всех элементов и заменить положительные элементы на 10

@innal · Регистрация: 18.03.2014

В одномерном массиве A из n(50) элементов найти сумму всех элементов и заменить положительные элементы на 10. Желательно с блок-схемой

@sano32 · 18.03.2014, 14:02

Pascal

uses crt;
var a:array[1..50] of integer;
    i,s:integer;
begin
clrscr;
randomize;
s:=0;
for i:=1 to 50 do
    begin
         a[i]:=random(50)-15;
         write(a[i],' ');
         s:=s+a[i];
    end;
writeln;
writeln('summa ravna ',s);
for i:=1 to 50 do
    begin
         if a[i]>0 then a[i]:=10;
         write(a[i],' ');
    end;
readln;
end.

@innal 0 / 0 / 0 Регистрация: 18.03.2014 Сообщений: 7
		1
	В одномерном массиве A из n(50) элементов найти сумму всех элементов и заменить положительные элементы на 10 18.03.2014, 13:34. Показов 2575. Ответов 1 Метки нет (Все метки) В одномерном массиве A из n(50) элементов найти сумму всех элементов и заменить положительные элементы на 10. Желательно с блок-схемой 0

Опции темы

В одномерном массиве A из n(50) элементов найти сумму всех элементов и заменить положительные элементы на 10

Решение