1)составте программуб которая заполняет массив - вопрос №4549921110 от Меруерт999 02.08.2020 16:14

Question

Информатика: 1)составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с четными значениями на 1. если элементы с чётными значениями отсутствуют, оставить массив без изменений. 2) составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с нечётными значениями в три раза,а элементы с чётными значениями заменяя на 0.

Меруерт999 · Answer

1)   var a:array [1..10] of integer;i:integer;beginfor i:=1 to 10 doread(a[i]);for i:=1 to 10 dobeginif a[i] mod 2 = 0 thena[i]:=a[i]+1;writeln(a[i]);end;end.   2)  var a:array [1..10] of integer;i:integer;beginfor i:=1 to 10 doread(a[i]);for i:=1 to 10 doif (a[i]+1) mod 2 = 0 thenbegina[i]:=a[i]*3;writeln(a[i]);endelsebeginif a[i] mod 2 = 0 thenwriteln (0);end;end....