Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.
Не трундая задача. Приступим.
Пусть а - первое число, б - второе число, с - третье число.
Четное число - 2n
If (a+b+c) div 2 = 0 then writeln ('Их сумма четное число') else writeln ('Их сумма нечетное число');
Кількість класів, кількість вчителів, мова навчання , кількість кабінетів , кількість учнів, розміри дошки , кількість парт,
Ну, если розы росли так:
* *
* *
* *
* *
* *
то периметр 12 метров ( но здесь есть заковыка: если первый куст уже полит, то зачем же к нему идти еще раз? Тогда ответ 9*1,2 = 10,8 м)...
Eyedropper с английского - пипетка. Пипетка выполняет роль определения цвета на пикселе, который вы указали курсором. Затем он может использоваться для рисования/заливки цветом, которым Вы выбрали. Единственное, что подходит под это - f.