begin Randomize; Writeln('Элементы массива'); k := 0; for i := 1 to n do begin T[i] := Random(11)-5; Write(T[i]:3); if ((i mod 2)<>0) and (T[i]=0) then Inc(k); end; Writeln; Writeln('Количество нулевых элементов на нечетных местах равно ',k); end.
Тестовое решение: Элементы массива 2 5 -4 4 3 -2 5 -5 -1 -2 5 2 0 -5 -5 -4 -3 3 0 1 Количество нулевых элементов на нечетных местах равно 2
const n = 18;
var T: array[1..n] of integer; i: integer;
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin T[i] := Random(51)-25; Write(T[i]:4); end; Writeln; Writeln('Результат'); for i := 1 to n do begin if ((i mod 2)<>0) then T[i] := 0; Write(T[i]:4); end; Writeln; end.
count : integer;
tovar: string;
begin writeln('Введите исходные данные: ');
writeln('Какой товар вы покупаете? ');
readln(tovar);
writeln('По какой цене? ');
readln(cost);
writeln('Сколько штук? ');
readln(count);
summa := cost*count; writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2); writeln('Сколько денег даете? ');
readln(money);
if money=summa then writeln('свободен, под расчёт') else if money > summa then writeln('Ваша сдача: ', money-summa) else writeln('Нужно добавить: ', summa-money,. ');
end.