Program_v1;
10-11 класс
|
var A: array [1..20] of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 20 do
begin
A[i]:=random(100);
write (' ',A[i] ');
end;
for i:=1 to 20 do
if imod2>0 then
s: = a[i]*a[i];
writeln;
writeln('s=',s);
readln;
end.
генератором случайных чисел (от 0 до 100) задан массив из 20 целых
чисел.составьте программу, с помощью которой напечатайте на одной
строчке исходный массив, а на следующей строке - сумму квадратов
элементов с начетными индексами
Не проверяя говорю, что тут ошибка:
s: = a[i]*a[i];
Надо найти сумму, а тут просто присваивается квадратов. Надо написать вот так
S:= s + sqr(a[i]);
Другие вопросы из категории
и английского алфавита прикосновением пера к экрану. Для переключения между заглавными и строчными буквами используется клавиша Shift, нажатие на которую приводит к смене режима на время ввода одной следующей буквы, и клавиша Caps Lock для постоянной смены режима. Для смены алфавита с русского языка на английский используется клавиша au (клавиша находится между Ctrl и Alt). В начальном состоянии клавиатура находится в режиме строчных русских букв.
Требуется написать программу, выводящую минимальную длину
последовательности прикосновений пера для набора заданной строки.
Технические требования.
Имя входного файла: INPUT.TXT
Имя выходного файла: OUTPUT.TXT
Формат входных данных:
В единственной строке входного файла содержится строка длиной не более 50 скатолов, содержащая заглавные и строчные русские и английские буквы. Формат выходных данных:
В единственной строке выходного файла содержится единственное число - минимальная длина последовательности прикосновений пера для набора заданной строки.
Примеры файлов входных данных: Примеры файлов выходных данных:
Строка 7
ПРИВЕТhеllо 14