1) Составте программуб которая заполняет массив а[1… 10] случайными целыми числами…

Question

55

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

sally · Accepted Answer

45

sally

17 марта 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: