№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные…

Question

46

№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти суммудвузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.

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

ответить

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

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

procl · Accepted Answer

45

procl

27 декабря 2022

1) var mas: array[1… 30] of integer; i,sum: integer; beginrandomize; for i: =1 to 30 dobegin mas[i]: =random (101); if (mas[i]<99) and (mas[i] mod 10<>3) then sum: =sum+mas[i]; end; writeln (sum); end. 2) var mas: array[1… 100] of integer; i,max,min: integer; beginmin: =0; min: =maxint; randomize; for i: =1 to 100 dobegin mas[i]: =random (500)+1; if (mas[i]<>max) then max: =mas[i]; end; for i: =1 to 100 do if (max mod mas[i]=0) and (mas[i]

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

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

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

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