Сделайте пожалуйста.Буду очень благодарен.

Знания

Информатика

1 ответ:

Mr President [7]4 года назад

0 0

2)-------B
3)-------C
1)-------A

Читайте также

Дан массив из 100 целых чисел и найти сумму элементов массива

Зиночка-З [3]

Var
a : array [1..100] of integer;
i, sum : integer;
begin
for i := 1 to 100 do read (a[i]);
sum := 0;
for i := 1 to 100 do sum := sum + a[i];
write (sum);
end.

0 0

4 года назад

Дан массив из 20 целых чисел,все элементы меньше 10 заменить на 0, и вывести получившиеся массив

mikola89 [7]

Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>

0 0

4 года назад

Картина это документ или нет?

руслан вахрушев

<span>наверно переносчик данных но я точно не знаю</span>

0 0

3 года назад

Прочитать ещё 2 ответа

укажите условия правельно зиписанные на языке паскаль x>0 5>y c=<5

Галина Евгеньевна

x>0; 5>y - правИльно записанные условия

0 0